home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / BoingSoundEng.AMOS / BoingSoundEng.amosSourceCode
Encoding:
AMOS Source Code  |  1998-08-26  |  956 b   |  45 lines
  1. Screen Open 0,640,256,2,$8000
  2. Open Out 1,"ram:narf"
  3. Dim SI(15)
  4. For A=0 To 15
  5.   SI(A)= Extension_8_1106(A*64,127)
  6.   Print #1,SI(A);",";
  7. Next 
  8. Close 1
  9. Reserve As Chip Work 9,100000
  10. ST=Start(9)
  11. OSC=0
  12. AD=ST
  13. VOL=65536
  14. For A=16768 To 0 Step -1
  15. '  OSC=0 
  16. '  Poke AD,Min(Max(((Rnd(255)-128)*VOL)/32768,-128),127) 
  17.   Poke AD,Min(Max((SI(OSC and $F)*VOL)/32768,-128),127)
  18.   Draw To((X/4) mod 640),(X/2560)*64+32+ Extension_8_0BF0(AD)/4
  19.   Inc AD
  20.   Inc X
  21.   Add OSC,Rnd(1)
  22.   Add VOL,-(VOL/3200)
  23.   If X>10240 Then Cls : X=0
  24. Next 
  25.  Extension_8_1412 1,ST,65536,28000
  26. End 
  27. OSC=0 : OSCFREQ=64
  28. AD=ST
  29. VOL=64 : VOLB=0
  30. For A=31 To 0 Step -1
  31. '  OSC=0 
  32.   For VV=0 To 1023
  33.     TV=256-((VV*VOL)/1024)-VOLB
  34.     Poke AD,(SI((OSC/1024) and $F)*TV)/256
  35.     Draw To((X/4) mod 640),(X/2560)*64+32+ Extension_8_0BF0(AD)/4
  36.     Inc AD
  37.     Inc X
  38.     Add OSC,OSCFREQ
  39.     If X>10240 Then Cls : X=0
  40.   Next 
  41.   Add VOL,8
  42.   Inc VOLB
  43.   Add OSCFREQ,OSCFREQ/32
  44. Next 
  45.  Extension_8_1412 1,ST,65536,28000